home *** CD-ROM | disk | FTP | other *** search
/ Clickx 22 / Clickx 22.iso / Menu.dxr / 00014_start submenu.ls < prev    next >
Encoding:
Text File  |  2005-01-01  |  413 b   |  19 lines
  1. global gPlatform, gGroep, gTekst, Files
  2.  
  3. on enterFrame
  4.   member("vraagTitel").text = gTekst
  5.   pIDlist = []
  6.   if gPlatform = "PC" then
  7.     Files = getFilesPC(gGroep)
  8.   else
  9.     Files = getFilesMAC(gGroep)
  10.   end if
  11.   member("pakketten").text = EMPTY
  12.   member("uitleg").text = EMPTY
  13.   repeat with i = 1 to 17
  14.     if i <= Files.count then
  15.       member("pakketten").line[i] = Files[i].naam
  16.     end if
  17.   end repeat
  18. end
  19.